home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / videofrm / videofrm.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  31.7 KB  |  1,098 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   documentMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Document"
  11.     :menu-item-labels       ("New" "Open..." "Save" "Save As..." "Close" "Quit" )
  12.     :menu-item-label-types  (:string :string :string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active :active :active )
  14.     :menu-item-defaults     (nil t nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil nil nil )
  16.     :menu-item-handlers     (NewHandler OpenHandler SaveHandler SaveAsHandler CloseHandler QuitHandler )
  17.     :menu-item-menus        (nil nil nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (documentMenu "New")
  24.         :when                   (Notify )
  25.         :to                     (documentMenu "New")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (NewHandler)
  29.         )
  30.         (
  31.         :from                   (documentMenu "Open...")
  32.         :when                   (Notify )
  33.         :to                     (documentMenu "Open...")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (OpenHandler)
  37.         )
  38.         (
  39.         :from                   (documentMenu "Save")
  40.         :when                   (Notify )
  41.         :to                     (documentMenu "Save")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (SaveHandler)
  45.         )
  46.         (
  47.         :from                   (documentMenu "Save As...")
  48.         :when                   (Notify )
  49.         :to                     (documentMenu "Save As...")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (SaveAsHandler)
  53.         )
  54.         (
  55.         :from                   (documentMenu "Close")
  56.         :when                   (Notify )
  57.         :to                     (documentMenu "Close")
  58.         :function_type          CallFunction
  59.         :arg_type               ()
  60.         :action                 (CloseHandler)
  61.         )
  62.         (
  63.         :from                   (documentMenu "Quit")
  64.         :when                   (Notify )
  65.         :to                     (documentMenu "Quit")
  66.         :function_type          CallFunction
  67.         :arg_type               ()
  68.         :action                 (QuitHandler)
  69.         )
  70.     )
  71. )
  72. (
  73.     :type                   :base-window
  74.     :name                   mainWindow
  75.     :owner                  nil
  76.     :width                  700
  77.     :height                 500
  78.     :background-color       ""
  79.     :foreground-color       ""
  80.     :label                  "VideoFrame"
  81.     :label-type             :string
  82.     :initial-state          :open
  83.     :show-footer            t
  84.     :resizable              t
  85.     :icon-file              "icons/VideoFrame"
  86.     :icon-label             ""
  87.     :icon-mask-file         ""
  88.     :event-handler          nil
  89.     :user-data              ()
  90.     :actions                ()
  91. )
  92. (
  93.     :type                   :control-area
  94.     :name                   mainPanel
  95.     :owner                  mainWindow
  96.     :help                   ""
  97.     :x                      0
  98.     :y                      0
  99.     :width                  700
  100.     :height                 200
  101.     :background-color       ""
  102.     :foreground-color       ""
  103.     :initial-state          :visible
  104.     :show-border            nil
  105.     :menu                   nil
  106.     :event-handler          nil
  107.     :user-data              ()
  108.     :actions                ()
  109. )
  110. (
  111.     :type                   :button
  112.     :name                   documentMenuButton
  113.     :owner                  mainPanel
  114.     :help                   ""
  115.     :x                      32
  116.     :y                      16
  117.     :width                  94
  118.     :height                 19
  119.     :constant-width         nil
  120.     :button-type            :normal
  121.     :foreground-color       ""
  122.     :label                  "Document"
  123.     :label-type             :string
  124.     :initial-state          :active
  125.     :menu                   documentMenu
  126.     :notify-handler         nil
  127.     :event-handler          nil
  128.     :user-data              ()
  129.     :actions                ()
  130. )
  131. (
  132.     :type                   :message
  133.     :name                   currentSelectionMessage
  134.     :owner                  mainPanel
  135.     :help                   ""
  136.     :x                      344
  137.     :y                      24
  138.     :width                  189
  139.     :height                 13
  140.     :foreground-color       ""
  141.     :label                  "Current Selection : New Edit"
  142.     :label-type             :string
  143.     :label-bold             t
  144.     :initial-state          :active
  145.     :event-handler          nil
  146.     :user-data              ()
  147.     :actions                ()
  148. )
  149. (
  150.     :type                   :scrolling-list
  151.     :name                   editList
  152.     :owner                  mainPanel
  153.     :help                   ""
  154.     :x                      16
  155.     :y                      56
  156.     :width                  250
  157.     :height                 110
  158.     :value-x                16
  159.     :value-y                56
  160.     :rows                   5
  161.     :foreground-color       ""
  162.     :label                  ""
  163.     :title                  ""
  164.     :label-type             :string
  165.     :layout-type            :horizontal
  166.     :read-only              t
  167.     :multiple-selections    nil
  168.     :selection-required     nil
  169.     :initial-state          :active
  170.     :droppable              nil
  171.     :default-drop-site      t
  172.     :menu                   nil
  173.     :notify-handler         EditListHandler
  174.     :event-handler          nil
  175.     :initial-list-values    ()
  176.     :initial-list-glyphs    ()
  177.     :initial-selections     ()
  178.     :user-data              ()
  179.     :actions                (
  180.         (
  181.         :from                   (mainWindow editList)
  182.         :when                   (Notify )
  183.         :to                     (mainWindow editList)
  184.         :function_type          CallFunction
  185.         :arg_type               ()
  186.         :action                 (EditListHandler)
  187.         )
  188.     )
  189. )
  190. (
  191.     :type                   :text-field
  192.     :name                   labelField
  193.     :owner                  mainPanel
  194.     :help                   ""
  195.     :x                      344
  196.     :y                      72
  197.     :width                  333
  198.     :height                 15
  199.     :value-x                397
  200.     :value-y                72
  201.     :value-length           35
  202.     :stored-length          255
  203.     :rows                   3
  204.     :foreground-color       ""
  205.     :text-type              :alphanumeric
  206.     :label                  "Label :"
  207.     :label-type             :string
  208.     :layout-type            :horizontal
  209.     :value-underlined       t
  210.     :initial-value          ""
  211.     :initial-state          :active
  212.     :read-only              nil
  213.     :notify-handler         LabelFieldHandler
  214.     :event-handler          nil
  215.     :user-data              ()
  216.     :actions                (
  217.         (
  218.         :from                   (mainWindow labelField)
  219.         :when                   (Notify )
  220.         :to                     (mainWindow labelField)
  221.         :function_type          CallFunction
  222.         :arg_type               ()
  223.         :action                 (LabelFieldHandler)
  224.         )
  225.     )
  226. )
  227. (
  228.     :type                   :button
  229.     :name                   addButton
  230.     :owner                  mainPanel
  231.     :help                   ""
  232.     :x                      320
  233.     :y                      144
  234.     :width                  78
  235.     :height                 19
  236.     :constant-width         nil
  237.     :button-type            :normal
  238.     :foreground-color       ""
  239.     :label                  "    Add     "
  240.     :label-type             :string
  241.     :initial-state          :active
  242.     :menu                   nil
  243.     :notify-handler         AddHandler
  244.     :event-handler          nil
  245.     :user-data              ()
  246.     :actions                (
  247.         (
  248.         :from                   (mainWindow addButton)
  249.         :when                   (Notify )
  250.         :to                     (mainWindow addButton)
  251.         :function_type          CallFunction
  252.         :arg_type               ()
  253.         :action                 (AddHandler)
  254.         )
  255.     )
  256. )
  257. (
  258.     :type                   :button
  259.     :name                   modifyButton
  260.     :owner                  mainPanel
  261.     :help                   ""
  262.     :x                      406
  263.     :y                      144
  264.     :width                  80
  265.     :height                 19
  266.     :constant-width         nil
  267.     :button-type            :normal
  268.     :foreground-color       ""
  269.     :label                  "  Modify   "
  270.     :label-type             :string
  271.     :initial-state          :active
  272.     :menu                   nil
  273.     :notify-handler         ModifyHandler
  274.     :event-handler          nil
  275.     :user-data              ()
  276.     :actions                (
  277.         (
  278.         :from                   (mainWindow modifyButton)
  279.         :when                   (Notify )
  280.         :to                     (mainWindow modifyButton)
  281.         :function_type          CallFunction
  282.         :arg_type               ()
  283.         :action                 (ModifyHandler)
  284.         )
  285.     )
  286. )
  287. (
  288.     :type                   :button
  289.     :name                   deleteButton
  290.     :owner                  mainPanel
  291.     :help                   ""
  292.     :x                      492
  293.     :y                      144
  294.     :width                  73
  295.     :height                 19
  296.     :constant-width         nil
  297.     :button-type            :normal
  298.     :foreground-color       ""
  299.     :label                  "  Delete  "
  300.     :label-type             :string
  301.     :initial-state          :active
  302.     :menu                   nil
  303.     :notify-handler         DeleteHandler
  304.     :event-handler          nil
  305.     :user-data              ()
  306.     :actions                (
  307.         (
  308.         :from                   (mainWindow deleteButton)
  309.         :when                   (Notify )
  310.         :to                     (mainWindow deleteButton)
  311.         :function_type          CallFunction
  312.         :arg_type               ()
  313.         :action                 (DeleteHandler)
  314.         )
  315.     )
  316. )
  317. (
  318.     :type                   :button
  319.     :name                   deleteAllButton
  320.     :owner                  mainPanel
  321.     :help                   ""
  322.     :x                      578
  323.     :y                      144
  324.     :width                  81
  325.     :height                 19
  326.     :constant-width         nil
  327.     :button-type            :normal
  328.     :foreground-color       ""
  329.     :label                  "Delete All "
  330.     :label-type             :string
  331.     :initial-state          :active
  332.     :menu                   nil
  333.     :notify-handler         DeleteAllHandler
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                (
  337.         (
  338.         :from                   (mainWindow deleteAllButton)
  339.         :when                   (Notify )
  340.         :to                     (mainWindow deleteAllButton)
  341.         :function_type          CallFunction
  342.         :arg_type               ()
  343.         :action                 (DeleteAllHandler)
  344.         )
  345.     )
  346. )
  347. (
  348.     :type                   :control-area
  349.     :name                   input1Panel
  350.     :owner                  mainWindow
  351.     :help                   ""
  352.     :x                      0
  353.     :y                      200
  354.     :width                  350
  355.     :height                 300
  356.     :background-color       ""
  357.     :foreground-color       ""
  358.     :initial-state          :visible
  359.     :show-border            t
  360.     :menu                   nil
  361.     :event-handler          nil
  362.     :user-data              ()
  363.     :actions                ()
  364. )
  365. (
  366.     :type                   :message
  367.     :name                   input1Message
  368.     :owner                  input1Panel
  369.     :help                   ""
  370.     :x                      136
  371.     :y                      16
  372.     :width                  49
  373.     :height                 13
  374.     :foreground-color       ""
  375.     :label                  "Input 1"
  376.     :label-type             :string
  377.     :label-bold             t
  378.     :initial-state          :active
  379.     :event-handler          nil
  380.     :user-data              ()
  381.     :actions                ()
  382. )
  383. (
  384.     :type                   :setting
  385.     :name                   input1ShownChoice
  386.     :owner                  input1Panel
  387.     :help                   ""
  388.     :x                      16
  389.     :y                      56
  390.     :width                  117
  391.     :height                 23
  392.     :value-x                16
  393.     :value-y                56
  394.     :rows                   1
  395.     :columns                0
  396.     :layout-type            :horizontal
  397.     :foreground-color       ""
  398.     :setting-type           :exclusive
  399.     :selection-required     t
  400.     :label                  ""
  401.     :label-type             :string
  402.     :notify-handler         nil
  403.     :event-handler          nil
  404.     :choices                ("Visible" "Hidden" )
  405.     :choice-label-types     (:string :string )
  406.     :choice-colors          ("" "" )
  407.     :initial-selections     (nil nil )
  408.     :initial-state          :active
  409.     :user-data              ()
  410.     :actions                (
  411.         (
  412.         :from                   (mainWindow input1ShownChoice "Hidden")
  413.         :when                   (Notify )
  414.         :to                     (mainWindow input1ShownChoice "Hidden")
  415.         :function_type          CallFunction
  416.         :arg_type               ()
  417.         :action                 (HideWindow)
  418.         )
  419.         (
  420.         :from                   (mainWindow input1ShownChoice "Visible")
  421.         :when                   (Notify )
  422.         :to                     (mainWindow input1ShownChoice "Visible")
  423.         :function_type          CallFunction
  424.         :arg_type               ()
  425.         :action                 (ShowWindow)
  426.         )
  427.     )
  428. )
  429. (
  430.     :type                   :setting
  431.     :name                   input1CroppedChoice
  432.     :owner                  input1Panel
  433.     :help                   ""
  434.     :x                      200
  435.     :y                      56
  436.     :width                  111
  437.     :height                 23
  438.     :value-x                200
  439.     :value-y                56
  440.     :rows                   1
  441.     :columns                0
  442.     :layout-type            :horizontal
  443.     :foreground-color       ""
  444.     :setting-type           :exclusive
  445.     :selection-required     t
  446.     :label                  ""
  447.     :label-type             :string
  448.     :notify-handler         nil
  449.     :event-handler          nil
  450.     :choices                ("Crop" "Squeeze" )
  451.     :choice-label-types     (:string :string )
  452.     :choice-colors          ("" "" )
  453.     :initial-selections     (nil nil )
  454.     :initial-state          :active
  455.     :user-data              ()
  456.     :actions                (
  457.         (
  458.         :from                   (mainWindow input1CroppedChoice "Crop")
  459.         :when                   (Notify )
  460.         :to                     (mainWindow input1CroppedChoice "Crop")
  461.         :function_type          CallFunction
  462.         :arg_type               ()
  463.         :action                 (CropWindow)
  464.         )
  465.         (
  466.         :from                   (mainWindow input1CroppedChoice "Squeeze")
  467.         :when                   (Notify )
  468.         :to                     (mainWindow input1CroppedChoice "Squeeze")
  469.         :function_type          CallFunction
  470.         :arg_type               ()
  471.         :action                 (SqueezeWindow)
  472.         )
  473.     )
  474. )
  475. (
  476.     :type                   :setting
  477.     :name                   input1AspectChoice
  478.     :owner                  input1Panel
  479.     :help                   ""
  480.     :x                      16
  481.     :y                      104
  482.     :width                  178
  483.     :height                 23
  484.     :value-x                112
  485.     :value-y                104
  486.     :rows                   1
  487.     :columns                0
  488.     :layout-type            :horizontal
  489.     :foreground-color       ""
  490.     :setting-type           :exclusive
  491.     :selection-required     t
  492.     :label                  "Aspect Ratio:"
  493.     :label-type             :string
  494.     :notify-handler         nil
  495.     :event-handler          nil
  496.     :choices                ("Any" "4 : 3" )
  497.     :choice-label-types     (:string :string )
  498.     :choice-colors          ("" "" )
  499.     :initial-selections     (nil nil )
  500.     :initial-state          :active
  501.     :user-data              ()
  502.     :actions                (
  503.         (
  504.         :from                   (mainWindow input1AspectChoice "Any")
  505.         :when                   (Notify )
  506.         :to                     (mainWindow input1AspectChoice "Any")
  507.         :function_type          CallFunction
  508.         :arg_type               ()
  509.         :action                 (SetAspectAny)
  510.         )
  511.         (
  512.         :from                   (mainWindow input1AspectChoice "4 : 3")
  513.         :when                   (Notify )
  514.         :to                     (mainWindow input1AspectChoice "4 : 3")
  515.         :function_type          CallFunction
  516.         :arg_type               ()
  517.         :action                 (SetAspect4to3)
  518.         )
  519.     )
  520. )
  521. (
  522.     :type                   :slider
  523.     :name                   input1BrightSlider
  524.     :owner                  input1Panel
  525.     :help                   ""
  526.     :x                      3
  527.     :y                      152
  528.     :width                  324
  529.     :height                 20
  530.     :value-x                85
  531.     :value-y                152
  532.     :slider-width           200
  533.     :ticks                  0
  534.     :foreground-color       ""
  535.     :label                  "Brightness :"
  536.     :label-type             :string
  537.     :layout-type            :horizontal
  538.     :orientation            :horizontal
  539.     :show-endboxes          t
  540.     :show-range             nil
  541.     :show-value             nil
  542.     :min-value              0
  543.     :max-value              255
  544.     :min-value-string       ""
  545.     :max-value-string       ""
  546.     :min-tick-string        ""
  547.     :max-tick-string        ""
  548.     :initial-value          0
  549.     :initial-state          :active
  550.     :notify-handler         BrightnessHandler
  551.     :event-handler          nil
  552.     :user-data              ()
  553.     :actions                (
  554.         (
  555.         :from                   (mainWindow input1BrightSlider)
  556.         :when                   (Notify )
  557.         :to                     (mainWindow input1BrightSlider)
  558.         :function_type          CallFunction
  559.         :arg_type               ()
  560.         :action                 (BrightnessHandler)
  561.         )
  562.     )
  563. )
  564. (
  565.     :type                   :slider
  566.     :name                   input1ContrastSlider
  567.     :owner                  input1Panel
  568.     :help                   ""
  569.     :x                      20
  570.     :y                      184
  571.     :width                  307
  572.     :height                 20
  573.     :value-x                85
  574.     :value-y                184
  575.     :slider-width           200
  576.     :ticks                  0
  577.     :foreground-color       ""
  578.     :label                  "Contrast :"
  579.     :label-type             :string
  580.     :layout-type            :horizontal
  581.     :orientation            :horizontal
  582.     :show-endboxes          t
  583.     :show-range             nil
  584.     :show-value             nil
  585.     :min-value              0
  586.     :max-value              255
  587.     :min-value-string       ""
  588.     :max-value-string       ""
  589.     :min-tick-string        ""
  590.     :max-tick-string        ""
  591.     :initial-value          0
  592.     :initial-state          :active
  593.     :notify-handler         ContrastHandler
  594.     :event-handler          nil
  595.     :user-data              ()
  596.     :actions                (
  597.         (
  598.         :from                   (mainWindow input1ContrastSlider)
  599.         :when                   (Notify )
  600.         :to                     (mainWindow input1ContrastSlider)
  601.         :function_type          CallFunction
  602.         :arg_type               ()
  603.         :action                 (ContrastHandler)
  604.         )
  605.     )
  606. )
  607. (
  608.     :type                   :slider
  609.     :name                   input1SaturationSlider
  610.     :owner                  input1Panel
  611.     :help                   ""
  612.     :x                      7
  613.     :y                      216
  614.     :width                  320
  615.     :height                 20
  616.     :value-x                85
  617.     :value-y                216
  618.     :slider-width           200
  619.     :ticks                  0
  620.     :foreground-color       ""
  621.     :label                  "Saturation :"
  622.     :label-type             :string
  623.     :layout-type            :horizontal
  624.     :orientation            :horizontal
  625.     :show-endboxes          t
  626.     :show-range             nil
  627.     :show-value             nil
  628.     :min-value              0
  629.     :max-value              255
  630.     :min-value-string       ""
  631.     :max-value-string       ""
  632.     :min-tick-string        ""
  633.     :max-tick-string        ""
  634.     :initial-value          0
  635.     :initial-state          :active
  636.     :notify-handler         SaturationHandler
  637.     :event-handler          nil
  638.     :user-data              ()
  639.     :actions                (
  640.         (
  641.         :from                   (mainWindow input1SaturationSlider)
  642.         :when                   (Notify )
  643.         :to                     (mainWindow input1SaturationSlider)
  644.         :function_type          CallFunction
  645.         :arg_type               ()
  646.         :action                 (SaturationHandler)
  647.         )
  648.     )
  649. )
  650. (
  651.     :type                   :slider
  652.     :name                   input1HueSlider
  653.     :owner                  input1Panel
  654.     :help                   ""
  655.     :x                      51
  656.     :y                      248
  657.     :width                  276
  658.     :height                 20
  659.     :value-x                85
  660.     :value-y                248
  661.     :slider-width           200
  662.     :ticks                  0
  663.     :foreground-color       ""
  664.     :label                  "Hue :"
  665.     :label-type             :string
  666.     :layout-type            :horizontal
  667.     :orientation            :horizontal
  668.     :show-endboxes          t
  669.     :show-range             nil
  670.     :show-value             nil
  671.     :min-value              0
  672.     :max-value              255
  673.     :min-value-string       ""
  674.     :max-value-string       ""
  675.     :min-tick-string        ""
  676.     :max-tick-string        ""
  677.     :initial-value          0
  678.     :initial-state          :active
  679.     :notify-handler         HueHandler
  680.     :event-handler          nil
  681.     :user-data              ()
  682.     :actions                (
  683.         (
  684.         :from                   (mainWindow input1HueSlider)
  685.         :when                   (Notify )
  686.         :to                     (mainWindow input1HueSlider)
  687.         :function_type          CallFunction
  688.         :arg_type               ()
  689.         :action                 (HueHandler)
  690.         )
  691.     )
  692. )
  693. (
  694.     :type                   :control-area
  695.     :name                   input2Panel
  696.     :owner                  mainWindow
  697.     :help                   ""
  698.     :x                      350
  699.     :y                      200
  700.     :width                  350
  701.     :height                 300
  702.     :background-color       ""
  703.     :foreground-color       ""
  704.     :initial-state          :visible
  705.     :show-border            t
  706.     :menu                   nil
  707.     :event-handler          nil
  708.     :user-data              ()
  709.     :actions                ()
  710. )
  711. (
  712.     :type                   :message
  713.     :name                   input2Message
  714.     :owner                  input2Panel
  715.     :help                   ""
  716.     :x                      146
  717.     :y                      16
  718.     :width                  49
  719.     :height                 13
  720.     :foreground-color       ""
  721.     :label                  "Input 2"
  722.     :label-type             :string
  723.     :label-bold             t
  724.     :initial-state          :active
  725.     :event-handler          nil
  726.     :user-data              ()
  727.     :actions                ()
  728. )
  729. (
  730.     :type                   :setting
  731.     :name                   input2ShownChoice
  732.     :owner                  input2Panel
  733.     :help                   ""
  734.     :x                      26
  735.     :y                      56
  736.     :width                  117
  737.     :height                 23
  738.     :value-x                26
  739.     :value-y                56
  740.     :rows                   1
  741.     :columns                0
  742.     :layout-type            :horizontal
  743.     :foreground-color       ""
  744.     :setting-type           :exclusive
  745.     :selection-required     t
  746.     :label                  ""
  747.     :label-type             :string
  748.     :notify-handler         nil
  749.     :event-handler          nil
  750.     :choices                ("Visible" "Hidden" )
  751.     :choice-label-types     (:string :string )
  752.     :choice-colors          ("" "" )
  753.     :initial-selections     (nil nil )
  754.     :initial-state          :active
  755.     :user-data              ()
  756.     :actions                (
  757.         (
  758.         :from                   (mainWindow input2ShownChoice "Visible")
  759.         :when                   (Notify )
  760.         :to                     (mainWindow input2ShownChoice "Visible")
  761.         :function_type          CallFunction
  762.         :arg_type               ()
  763.         :action                 (ShowWindow)
  764.         )
  765.         (
  766.         :from                   (mainWindow input2ShownChoice "Hidden")
  767.         :when                   (Notify )
  768.         :to                     (mainWindow input2ShownChoice "Hidden")
  769.         :function_type          CallFunction
  770.         :arg_type               ()
  771.         :action                 (HideWindow)
  772.         )
  773.     )
  774. )
  775. (
  776.     :type                   :setting
  777.     :name                   input2CroppedChoice
  778.     :owner                  input2Panel
  779.     :help                   ""
  780.     :x                      210
  781.     :y                      56
  782.     :width                  111
  783.     :height                 23
  784.     :value-x                210
  785.     :value-y                56
  786.     :rows                   1
  787.     :columns                0
  788.     :layout-type            :horizontal
  789.     :foreground-color       ""
  790.     :setting-type           :exclusive
  791.     :selection-required     t
  792.     :label                  ""
  793.     :label-type             :string
  794.     :notify-handler         nil
  795.     :event-handler          nil
  796.     :choices                ("Crop" "Squeeze" )
  797.     :choice-label-types     (:string :string )
  798.     :choice-colors          ("" "" )
  799.     :initial-selections     (nil nil )
  800.     :initial-state          :active
  801.     :user-data              ()
  802.     :actions                (
  803.         (
  804.         :from                   (mainWindow input2CroppedChoice "Crop")
  805.         :when                   (Notify )
  806.         :to                     (mainWindow input2CroppedChoice "Crop")
  807.         :function_type          CallFunction
  808.         :arg_type               ()
  809.         :action                 (CropWindow)
  810.         )
  811.         (
  812.         :from                   (mainWindow input2CroppedChoice "Squeeze")
  813.         :when                   (Notify )
  814.         :to                     (mainWindow input2CroppedChoice "Squeeze")
  815.         :function_type          CallFunction
  816.         :arg_type               ()
  817.         :action                 (SqueezeWindow)
  818.         )
  819.     )
  820. )
  821. (
  822.     :type                   :setting
  823.     :name                   input2AspectChoice
  824.     :owner                  input2Panel
  825.     :help                   ""
  826.     :x                      26
  827.     :y                      104
  828.     :width                  178
  829.     :height                 23
  830.     :value-x                122
  831.     :value-y                104
  832.     :rows                   1
  833.     :columns                0
  834.     :layout-type            :horizontal
  835.     :foreground-color       ""
  836.     :setting-type           :exclusive
  837.     :selection-required     t
  838.     :label                  "Aspect Ratio:"
  839.     :label-type             :string
  840.     :notify-handler         nil
  841.     :event-handler          nil
  842.     :choices                ("Any" "4 : 3" )
  843.     :choice-label-types     (:string :string )
  844.     :choice-colors          ("" "" )
  845.     :initial-selections     (nil nil )
  846.     :initial-state          :active
  847.     :user-data              ()
  848.     :actions                (
  849.         (
  850.         :from                   (mainWindow input2AspectChoice "Any")
  851.         :when                   (Notify )
  852.         :to                     (mainWindow input2AspectChoice "Any")
  853.         :function_type          CallFunction
  854.         :arg_type               ()
  855.         :action                 (SetAspectAny)
  856.         )
  857.         (
  858.         :from                   (mainWindow input2AspectChoice "4 : 3")
  859.         :when                   (Notify )
  860.         :to                     (mainWindow input2AspectChoice "4 : 3")
  861.         :function_type          CallFunction
  862.         :arg_type               ()
  863.         :action                 (SetAspect4to3)
  864.         )
  865.     )
  866. )
  867. (
  868.     :type                   :slider
  869.     :name                   input2BrightSlider
  870.     :owner                  input2Panel
  871.     :help                   ""
  872.     :x                      8
  873.     :y                      152
  874.     :width                  324
  875.     :height                 20
  876.     :value-x                90
  877.     :value-y                152
  878.     :slider-width           200
  879.     :ticks                  0
  880.     :foreground-color       ""
  881.     :label                  "Brightness :"
  882.     :label-type             :string
  883.     :layout-type            :horizontal
  884.     :orientation            :horizontal
  885.     :show-endboxes          t
  886.     :show-range             nil
  887.     :show-value             nil
  888.     :min-value              0
  889.     :max-value              255
  890.     :min-value-string       ""
  891.     :max-value-string       ""
  892.     :min-tick-string        ""
  893.     :max-tick-string        ""
  894.     :initial-value          0
  895.     :initial-state          :active
  896.     :notify-handler         BrightnessHandler
  897.     :event-handler          nil
  898.     :user-data              ()
  899.     :actions                (
  900.         (
  901.         :from                   (mainWindow input2BrightSlider)
  902.         :when                   (Notify )
  903.         :to                     (mainWindow input2BrightSlider)
  904.         :function_type          CallFunction
  905.         :arg_type               ()
  906.         :action                 (BrightnessHandler)
  907.         )
  908.     )
  909. )
  910. (
  911.     :type                   :slider
  912.     :name                   input2ContrastSlider
  913.     :owner                  input2Panel
  914.     :help                   ""
  915.     :x                      25
  916.     :y                      184
  917.     :width                  307
  918.     :height                 20
  919.     :value-x                90
  920.     :value-y                184
  921.     :slider-width           200
  922.     :ticks                  0
  923.     :foreground-color       ""
  924.     :label                  "Contrast :"
  925.     :label-type             :string
  926.     :layout-type            :horizontal
  927.     :orientation            :horizontal
  928.     :show-endboxes          t
  929.     :show-range             nil
  930.     :show-value             nil
  931.     :min-value              0
  932.     :max-value              255
  933.     :min-value-string       ""
  934.     :max-value-string       ""
  935.     :min-tick-string        ""
  936.     :max-tick-string        ""
  937.     :initial-value          0
  938.     :initial-state          :active
  939.     :notify-handler         ContrastHandler
  940.     :event-handler          nil
  941.     :user-data              ()
  942.     :actions                (
  943.         (
  944.         :from                   (mainWindow input2ContrastSlider)
  945.         :when                   (Notify )
  946.         :to                     (mainWindow input2ContrastSlider)
  947.         :function_type          CallFunction
  948.         :arg_type               ()
  949.         :action                 (ContrastHandler)
  950.         )
  951.     )
  952. )
  953. (
  954.     :type                   :slider
  955.     :name                   input2SaturationSlider
  956.     :owner                  input2Panel
  957.     :help                   ""
  958.     :x                      12
  959.     :y                      216
  960.     :width                  320
  961.     :height                 20
  962.     :value-x                90
  963.     :value-y                216
  964.     :slider-width           200
  965.     :ticks                  0
  966.     :foreground-color       ""
  967.     :label                  "Saturation :"
  968.     :label-type             :string
  969.     :layout-type            :horizontal
  970.     :orientation            :horizontal
  971.     :show-endboxes          t
  972.     :show-range             nil
  973.     :show-value             nil
  974.     :min-value              0
  975.     :max-value              255
  976.     :min-value-string       ""
  977.     :max-value-string       ""
  978.     :min-tick-string        ""
  979.     :max-tick-string        ""
  980.     :initial-value          0
  981.     :initial-state          :active
  982.     :notify-handler         SaturationHandler
  983.     :event-handler          nil
  984.     :user-data              ()
  985.     :actions                (
  986.         (
  987.         :from                   (mainWindow input2SaturationSlider)
  988.         :when                   (Notify )
  989.         :to                     (mainWindow input2SaturationSlider)
  990.         :function_type          CallFunction
  991.         :arg_type               ()
  992.         :action                 (SaturationHandler)
  993.         )
  994.     )
  995. )
  996. (
  997.     :type                   :slider
  998.     :name                   input2HueSlider
  999.     :owner                  input2Panel
  1000.     :help                   ""
  1001.     :x                      56
  1002.     :y                      248
  1003.     :width                  276
  1004.     :height                 20
  1005.     :value-x                90
  1006.     :value-y                248
  1007.     :slider-width           200
  1008.     :ticks                  0
  1009.     :foreground-color       ""
  1010.     :label                  "Hue :"
  1011.     :label-type             :string
  1012.     :layout-type            :horizontal
  1013.     :orientation            :horizontal
  1014.     :show-endboxes          t
  1015.     :show-range             nil
  1016.     :show-value             nil
  1017.     :min-value              0
  1018.     :max-value              255
  1019.     :min-value-string       ""
  1020.     :max-value-string       ""
  1021.     :min-tick-string        ""
  1022.     :max-tick-string        ""
  1023.     :initial-value          0
  1024.     :initial-state          :active
  1025.     :notify-handler         HueHandler
  1026.     :event-handler          nil
  1027.     :user-data              ()
  1028.     :actions                (
  1029.         (
  1030.         :from                   (mainWindow input2HueSlider)
  1031.         :when                   (Notify )
  1032.         :to                     (mainWindow input2HueSlider)
  1033.         :function_type          CallFunction
  1034.         :arg_type               ()
  1035.         :action                 (HueHandler)
  1036.         )
  1037.     )
  1038. )
  1039. (
  1040.     :type                   :base-window
  1041.     :name                   inputWindow1
  1042.     :owner                  nil
  1043.     :width                  640
  1044.     :height                 480
  1045.     :background-color       ""
  1046.     :foreground-color       ""
  1047.     :label                  "Input1"
  1048.     :label-type             :string
  1049.     :initial-state          :open
  1050.     :show-footer            nil
  1051.     :resizable              t
  1052.     :icon-file              "icons/1"
  1053.     :icon-label             ""
  1054.     :icon-mask-file         ""
  1055.     :event-handler          nil
  1056.     :user-data              ()
  1057.     :actions                (
  1058.         (
  1059.         :from                   (inputWindow1)
  1060.         :when                   (Resize )
  1061.         :to                     (inputWindow1)
  1062.         :function_type          CallFunction
  1063.         :arg_type               ()
  1064.         :action                 (ResizeHandler)
  1065.         )
  1066.     )
  1067. )
  1068. (
  1069.     :type                   :base-window
  1070.     :name                   inputWindow2
  1071.     :owner                  nil
  1072.     :width                  640
  1073.     :height                 480
  1074.     :background-color       ""
  1075.     :foreground-color       ""
  1076.     :label                  "Input2"
  1077.     :label-type             :string
  1078.     :initial-state          :open
  1079.     :show-footer            nil
  1080.     :resizable              t
  1081.     :icon-file              "icons/2"
  1082.     :icon-label             ""
  1083.     :icon-mask-file         ""
  1084.     :event-handler          nil
  1085.     :user-data              ()
  1086.     :actions                (
  1087.         (
  1088.         :from                   (inputWindow2)
  1089.         :when                   (Resize )
  1090.         :to                     (inputWindow2)
  1091.         :function_type          CallFunction
  1092.         :arg_type               ()
  1093.         :action                 (ResizeHandler)
  1094.         )
  1095.     )
  1096. )
  1097. )
  1098.